/* Saisir la fonction à étudier */
m:(5*x+2)/(x+1)$
/* Saisir la borne inférieure */
xMin:-3$
/* Saisir la borne supérieure */
xMax:3$
/* Saisir le pas de recherche */
pas:1/2$
/* ================================================= */
/* Corps du programme */
n:diff(m,x);
for a:xMin thru xMax step pas do 
block(if (a+1=0) then go(loop),
p:expand(ev(n,x=a)*(x-a)+ev(m,x=a)),
print("Pour x=",a,",   y=",p),
loop);